home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
netmail
/
mbtc9603.zip
/
OLXTAGS.BAS
< prev
Wrap
BASIC Source File
|
1995-12-07
|
570b
|
19 lines
10 ' -------------------------------------------------------------------------
20 ' OLX tagline extraction utility. (c) 1995 Mark Baum. Public Domain.
30 ' -------------------------------------------------------------------------
1000 '
1010 FILES "*.LST"
1020 INPUT "Enter tagline filename:"; TagFile$
1030 '
1040 OPEN TagFile$ FOR INPUT AS 1
1050 OPEN "TAGLINES.OLX" FOR APPEND AS 2
1060 '
1070 WHILE EOF(1) = 0
1080 LINE INPUT #1, Tagline$
1090 IF LEN(Tagline$) <= 57 THEN PRINT #2, Tagline$
1100 WEND
1110 CLOSE
1120 SYSTEM
1130 END